warrsingle(x, dst) 
dst[0]=x;
return 666;
end;
